(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     95119,       1904]
NotebookOptionsPosition[     93725,       1873]
NotebookOutlinePosition[     94067,       1888]
CellTagsIndexPosition[     94024,       1885]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"names", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\<C:/Dropbox/SCC/data/data_20191103/names.txt\>\"", ",", 
     "\"\<Table\>\""}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"names", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"StringTake", "[", 
     RowBox[{
      RowBox[{"names", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "names", "]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7393650737013655`*^9, 3.739365079567876*^9}, {
  3.7393651802631865`*^9, 3.739365194052682*^9}, {3.7393661755154*^9, 
  3.7393662455298204`*^9}, {3.7830746120290227`*^9, 3.7830746164043193`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"10505e8a-6297-4063-9e55-6c96970e080b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"ARG\"\>", ",", "\<\"AUSx\"\>", ",", "\<\"AUTx\"\>", 
   ",", "\<\"BDI\"\>", ",", "\<\"BELx\"\>", ",", "\<\"BEN\"\>", 
   ",", "\<\"BFA\"\>", ",", "\<\"BGD\"\>", ",", "\<\"BGR\"\>", 
   ",", "\<\"BIH\"\>", ",", "\<\"BOL\"\>", ",", "\<\"BRA\"\>", 
   ",", "\<\"CAF\"\>", ",", "\<\"CANx\"\>", ",", "\<\"CHEx\"\>", 
   ",", "\<\"CHLx\"\>", ",", "\<\"CHN\"\>", ",", "\<\"CIV\"\>", 
   ",", "\<\"CMR\"\>", ",", "\<\"COD\"\>", ",", "\<\"COG\"\>", 
   ",", "\<\"COL\"\>", ",", "\<\"CRI\"\>", ",", "\<\"DEUx\"\>", 
   ",", "\<\"DNKx\"\>", ",", "\<\"DOM\"\>", ",", "\<\"DZA\"\>", 
   ",", "\<\"ECU\"\>", ",", "\<\"EGY\"\>", ",", "\<\"ESPx\"\>", 
   ",", "\<\"ETH\"\>", ",", "\<\"FINx\"\>", ",", "\<\"FRAx\"\>", 
   ",", "\<\"GBRx\"\>", ",", "\<\"GHA\"\>", ",", "\<\"GIN\"\>", 
   ",", "\<\"GRCx\"\>", ",", "\<\"GTM\"\>", ",", "\<\"HKG\"\>", 
   ",", "\<\"HND\"\>", ",", "\<\"HRV\"\>", ",", "\<\"HTI\"\>", 
   ",", "\<\"HUNx\"\>", ",", "\<\"IDN\"\>", ",", "\<\"IND\"\>", 
   ",", "\<\"IRLx\"\>", ",", "\<\"IRN\"\>", ",", "\<\"IRQ\"\>", 
   ",", "\<\"ISRx\"\>", ",", "\<\"ITAx\"\>", ",", "\<\"JOR\"\>", 
   ",", "\<\"JPNx\"\>", ",", "\<\"KEN\"\>", ",", "\<\"KHM\"\>", 
   ",", "\<\"KORx\"\>", ",", "\<\"LAO\"\>", ",", "\<\"LBN\"\>", 
   ",", "\<\"LBR\"\>", ",", "\<\"LKA\"\>", ",", "\<\"MAR\"\>", 
   ",", "\<\"MDG\"\>", ",", "\<\"MEXx\"\>", ",", "\<\"MLI\"\>", 
   ",", "\<\"MMR\"\>", ",", "\<\"MNG\"\>", ",", "\<\"MOZ\"\>", 
   ",", "\<\"MRT\"\>", ",", "\<\"MWI\"\>", ",", "\<\"MYS\"\>", 
   ",", "\<\"NER\"\>", ",", "\<\"NGA\"\>", ",", "\<\"NIC\"\>", 
   ",", "\<\"NLDx\"\>", ",", "\<\"NORx\"\>", ",", "\<\"NPL\"\>", 
   ",", "\<\"NZLx\"\>", ",", "\<\"OMN\"\>", ",", "\<\"PAK\"\>", 
   ",", "\<\"PAN\"\>", ",", "\<\"PER\"\>", ",", "\<\"PHL\"\>", 
   ",", "\<\"POLx\"\>", ",", "\<\"PRTx\"\>", ",", "\<\"PRY\"\>", 
   ",", "\<\"PSE\"\>", ",", "\<\"ROU\"\>", ",", "\<\"RUS\"\>", 
   ",", "\<\"RWA\"\>", ",", "\<\"SAU\"\>", ",", "\<\"SDN\"\>", 
   ",", "\<\"SEN\"\>", ",", "\<\"SGP\"\>", ",", "\<\"SLE\"\>", 
   ",", "\<\"SLV\"\>", ",", "\<\"SRB\"\>", ",", "\<\"SWEx\"\>", 
   ",", "\<\"SYR\"\>", ",", "\<\"TCD\"\>", ",", "\<\"TGO\"\>", 
   ",", "\<\"THA\"\>", ",", "\<\"TUN\"\>", ",", "\<\"TURx\"\>", 
   ",", "\<\"TWN\"\>", ",", "\<\"TZA\"\>", ",", "\<\"UGA\"\>", 
   ",", "\<\"URY\"\>", ",", "\<\"USAx\"\>", ",", "\<\"VEN\"\>", 
   ",", "\<\"VNM\"\>", ",", "\<\"YEM\"\>", ",", "\<\"ZAF\"\>", 
   ",", "\<\"ZMB\"\>", ",", "\<\"ZWE\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.7393651714316664`*^9, 3.7393662037932425`*^9, 
  3.7393662469594927`*^9, 3.7415926438736396`*^9, 3.783074645500496*^9, 
  3.785581537678354*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"e98c3da7-937a-4c08-b61a-450e2f5e501e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"ARG\"\>", ",", "\<\"AUS\"\>", ",", "\<\"AUT\"\>", 
   ",", "\<\"BDI\"\>", ",", "\<\"BEL\"\>", ",", "\<\"BEN\"\>", 
   ",", "\<\"BFA\"\>", ",", "\<\"BGD\"\>", ",", "\<\"BGR\"\>", 
   ",", "\<\"BIH\"\>", ",", "\<\"BOL\"\>", ",", "\<\"BRA\"\>", 
   ",", "\<\"CAF\"\>", ",", "\<\"CAN\"\>", ",", "\<\"CHE\"\>", 
   ",", "\<\"CHL\"\>", ",", "\<\"CHN\"\>", ",", "\<\"CIV\"\>", 
   ",", "\<\"CMR\"\>", ",", "\<\"COD\"\>", ",", "\<\"COG\"\>", 
   ",", "\<\"COL\"\>", ",", "\<\"CRI\"\>", ",", "\<\"DEU\"\>", 
   ",", "\<\"DNK\"\>", ",", "\<\"DOM\"\>", ",", "\<\"DZA\"\>", 
   ",", "\<\"ECU\"\>", ",", "\<\"EGY\"\>", ",", "\<\"ESP\"\>", 
   ",", "\<\"ETH\"\>", ",", "\<\"FIN\"\>", ",", "\<\"FRA\"\>", 
   ",", "\<\"GBR\"\>", ",", "\<\"GHA\"\>", ",", "\<\"GIN\"\>", 
   ",", "\<\"GRC\"\>", ",", "\<\"GTM\"\>", ",", "\<\"HKG\"\>", 
   ",", "\<\"HND\"\>", ",", "\<\"HRV\"\>", ",", "\<\"HTI\"\>", 
   ",", "\<\"HUN\"\>", ",", "\<\"IDN\"\>", ",", "\<\"IND\"\>", 
   ",", "\<\"IRL\"\>", ",", "\<\"IRN\"\>", ",", "\<\"IRQ\"\>", 
   ",", "\<\"ISR\"\>", ",", "\<\"ITA\"\>", ",", "\<\"JOR\"\>", 
   ",", "\<\"JPN\"\>", ",", "\<\"KEN\"\>", ",", "\<\"KHM\"\>", 
   ",", "\<\"KOR\"\>", ",", "\<\"LAO\"\>", ",", "\<\"LBN\"\>", 
   ",", "\<\"LBR\"\>", ",", "\<\"LKA\"\>", ",", "\<\"MAR\"\>", 
   ",", "\<\"MDG\"\>", ",", "\<\"MEX\"\>", ",", "\<\"MLI\"\>", 
   ",", "\<\"MMR\"\>", ",", "\<\"MNG\"\>", ",", "\<\"MOZ\"\>", 
   ",", "\<\"MRT\"\>", ",", "\<\"MWI\"\>", ",", "\<\"MYS\"\>", 
   ",", "\<\"NER\"\>", ",", "\<\"NGA\"\>", ",", "\<\"NIC\"\>", 
   ",", "\<\"NLD\"\>", ",", "\<\"NOR\"\>", ",", "\<\"NPL\"\>", 
   ",", "\<\"NZL\"\>", ",", "\<\"OMN\"\>", ",", "\<\"PAK\"\>", 
   ",", "\<\"PAN\"\>", ",", "\<\"PER\"\>", ",", "\<\"PHL\"\>", 
   ",", "\<\"POL\"\>", ",", "\<\"PRT\"\>", ",", "\<\"PRY\"\>", 
   ",", "\<\"PSE\"\>", ",", "\<\"ROU\"\>", ",", "\<\"RUS\"\>", 
   ",", "\<\"RWA\"\>", ",", "\<\"SAU\"\>", ",", "\<\"SDN\"\>", 
   ",", "\<\"SEN\"\>", ",", "\<\"SGP\"\>", ",", "\<\"SLE\"\>", 
   ",", "\<\"SLV\"\>", ",", "\<\"SRB\"\>", ",", "\<\"SWE\"\>", 
   ",", "\<\"SYR\"\>", ",", "\<\"TCD\"\>", ",", "\<\"TGO\"\>", 
   ",", "\<\"THA\"\>", ",", "\<\"TUN\"\>", ",", "\<\"TUR\"\>", 
   ",", "\<\"TWN\"\>", ",", "\<\"TZA\"\>", ",", "\<\"UGA\"\>", 
   ",", "\<\"URY\"\>", ",", "\<\"USA\"\>", ",", "\<\"VEN\"\>", 
   ",", "\<\"VNM\"\>", ",", "\<\"YEM\"\>", ",", "\<\"ZAF\"\>", 
   ",", "\<\"ZMB\"\>", ",", "\<\"ZWE\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.7393651714316664`*^9, 3.7393662037932425`*^9, 
  3.7393662469594927`*^9, 3.7415926438736396`*^9, 3.783074645500496*^9, 
  3.7855815376943555`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"983d9c94-1aa8-449e-8616-bbd7fcab1a96"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"countries", "=", 
  RowBox[{"ParallelTable", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Interpreter", "[", "\"\<Country\>\"", "]"}], "[", 
     RowBox[{"names", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "names", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.7393662732174625`*^9, {3.7393693647856464`*^9, 3.739369390924941*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"d2561998-d0b3-459a-8cb4-e7e8edca448f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"\"Argentina\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Argentina\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Argentina\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Australia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Austria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Austria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Austria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Burundi\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Burundi\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Burundi\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Belgium\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Belgium\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Belgium\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Benin\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Benin\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Benin\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Burkina Faso\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"BurkinaFaso\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"BurkinaFaso\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bangladesh\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Bangladesh\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Bangladesh\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bulgaria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Bulgaria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Bulgaria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bosnia and Herzegovina\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"BosniaHerzegovina\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"BosniaHerzegovina\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bolivia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Bolivia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Bolivia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Brazil\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Brazil\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Brazil\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Central African Republic\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"CentralAfricanRepublic\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"CentralAfricanRepublic\\\"]\"",
     "\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Canada\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Canada\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Canada\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Switzerland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Switzerland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Switzerland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Chile\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Chile\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Chile\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"China\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"China\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"China\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ivory Coast\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"IvoryCoast\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"IvoryCoast\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Cameroon\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Cameroon\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Cameroon\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Democratic Republic of the Congo\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"DemocraticRepublicCongo\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"DemocraticRepublicCongo\\\"]\"",
     "\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Republic of the Congo\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"RepublicCongo\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"RepublicCongo\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Colombia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Colombia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Colombia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Costa Rica\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"CostaRica\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"CostaRica\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Germany\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Denmark\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Denmark\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Denmark\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Dominican Republic\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"DominicanRepublic\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"DominicanRepublic\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Algeria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Algeria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Algeria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ecuador\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ecuador\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ecuador\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Egypt\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Egypt\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Egypt\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Spain\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Spain\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Spain\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ethiopia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ethiopia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ethiopia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Finland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Finland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Finland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"France\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"France\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"France\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"United Kingdom\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"UnitedKingdom\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"UnitedKingdom\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ghana\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ghana\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ghana\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Guinea\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Guinea\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Guinea\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Greece\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Greece\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Greece\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Guatemala\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Guatemala\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Guatemala\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Hong Kong\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"HongKong\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"HongKong\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Honduras\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Honduras\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Honduras\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Croatia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Croatia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Croatia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Haiti\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Haiti\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Haiti\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Hungary\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Hungary\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Hungary\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Indonesia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Indonesia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Indonesia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"India\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"India\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"India\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ireland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ireland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ireland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Iran\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Iran\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Iran\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Iraq\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Iraq\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Iraq\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Israel\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Israel\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Israel\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Italy\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Italy\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Italy\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Jordan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Jordan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Jordan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Japan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Japan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Japan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Kenya\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Kenya\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Kenya\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Cambodia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Cambodia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Cambodia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"South Korea\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SouthKorea\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SouthKorea\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Laos\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Laos\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Laos\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Lebanon\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Lebanon\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Lebanon\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Liberia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Liberia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Liberia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sri Lanka\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SriLanka\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SriLanka\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Morocco\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Morocco\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Morocco\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Madagascar\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Madagascar\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Madagascar\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mexico\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mexico\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mexico\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mali\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mali\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mali\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Myanmar\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Myanmar\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Myanmar\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mongolia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mongolia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mongolia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mozambique\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mozambique\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mozambique\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mauritania\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mauritania\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mauritania\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Malawi\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Malawi\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Malawi\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Malaysia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Malaysia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Malaysia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Niger\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Niger\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Niger\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Nigeria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Nigeria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Nigeria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Nicaragua\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Nicaragua\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Nicaragua\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Netherlands\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Netherlands\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Netherlands\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Norway\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Norway\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Norway\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Nepal\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Nepal\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Nepal\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"New Zealand\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"NewZealand\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"NewZealand\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Oman\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Oman\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Oman\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Pakistan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Pakistan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Pakistan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Panama\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Panama\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Panama\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Peru\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Peru\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Peru\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Philippines\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Philippines\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Philippines\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Poland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Portugal\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Portugal\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Portugal\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Paraguay\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Paraguay\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Paraguay\\\"]\"","\"country\""},
    "Entity"], ",", 
   InterpretationBox[
    RowBox[{
     TagBox["Failure",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              FrameBox[
               StyleBox["\"\[WarningSign]\"", 
                Directive["Message", 35], StripOnInput -> False], 
               ContentPadding -> False, FrameStyle -> None, 
               FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
              GridBox[{{
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageTemplate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    StyleBox[
                    RowBox[{"Interpreter", "::", "semantictype"}], 
                    "MessageName"], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageParameters\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    RowBox[{"\[LeftAssociation]", 
                    RowBox[{
                    RowBox[{"\"Type\"", "\[Rule]", "\"country\""}], ",", 
                    RowBox[{"\"Input\"", "\[Rule]", "\"PSE\""}]}], 
                    "\[RightAssociation]"}], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"InterpretationFailure\"", HoldForm], 
                    "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              FrameBox[
               StyleBox["\"\[WarningSign]\"", 
                Directive["Message", 35], StripOnInput -> False], 
               ContentPadding -> False, FrameStyle -> None, 
               FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
              GridBox[{{
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageTemplate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    StyleBox[
                    RowBox[{"Interpreter", "::", "semantictype"}], 
                    "MessageName"], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageParameters\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    RowBox[{"\[LeftAssociation]", 
                    RowBox[{
                    RowBox[{"\"Type\"", "\[Rule]", "\"country\""}], ",", 
                    RowBox[{"\"Input\"", "\[Rule]", "\"PSE\""}]}], 
                    "\[RightAssociation]"}], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"InterpretationFailure\"", HoldForm], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Type\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"Country\"", HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Input\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"PSE\"", HoldForm], "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    Failure["InterpretationFailure", 
     Association[
     "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
      "MessageParameters" -> 
      Association["Type" -> "country", "Input" -> "PSE"], "Type" -> "Country",
       "Input" -> "PSE"]],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   InterpretationBox[
    RowBox[{
     TagBox["Failure",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              FrameBox[
               StyleBox["\"\[WarningSign]\"", 
                Directive["Message", 35], StripOnInput -> False], 
               ContentPadding -> False, FrameStyle -> None, 
               FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
              GridBox[{{
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageTemplate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    StyleBox[
                    RowBox[{"Interpreter", "::", "semantictype"}], 
                    "MessageName"], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageParameters\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    RowBox[{"\[LeftAssociation]", 
                    RowBox[{
                    RowBox[{"\"Type\"", "\[Rule]", "\"country\""}], ",", 
                    RowBox[{"\"Input\"", "\[Rule]", "\"ROU\""}]}], 
                    "\[RightAssociation]"}], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"InterpretationFailure\"", HoldForm], 
                    "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 3.5 CurrentValue["FontCapHeight"]/
                  AbsoluteCurrentValue[Magnification]}]], 
              FrameBox[
               StyleBox["\"\[WarningSign]\"", 
                Directive["Message", 35], StripOnInput -> False], 
               ContentPadding -> False, FrameStyle -> None, 
               FrameMargins -> {{0, 0}, {0, 0}}, StripOnInput -> False], 
              GridBox[{{
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageTemplate\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    StyleBox[
                    RowBox[{"Interpreter", "::", "semantictype"}], 
                    "MessageName"], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    
                    TemplateBox[{"\"MessageParameters\"", "\": \""}, 
                    "RowDefault"], "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    TagBox[
                    RowBox[{"\[LeftAssociation]", 
                    RowBox[{
                    RowBox[{"\"Type\"", "\[Rule]", "\"country\""}], ",", 
                    RowBox[{"\"Input\"", "\[Rule]", "\"ROU\""}]}], 
                    "\[RightAssociation]"}], HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Tag\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"InterpretationFailure\"", HoldForm], 
                    "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Type\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"Country\"", HoldForm], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox[
                    TemplateBox[{"\"Input\"", "\": \""}, "RowDefault"], 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                   TagBox[
                    TagBox["\"ROU\"", HoldForm], "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    Failure["InterpretationFailure", 
     Association[
     "MessageTemplate" :> MessageName[Interpreter, "semantictype"], 
      "MessageParameters" -> 
      Association["Type" -> "country", "Input" -> "ROU"], "Type" -> "Country",
       "Input" -> "ROU"]],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", 
   TemplateBox[{"\"Russia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Russia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Russia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Rwanda\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Rwanda\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Rwanda\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Saudi Arabia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SaudiArabia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SaudiArabia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sudan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Sudan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Sudan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Senegal\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Senegal\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Senegal\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Singapore\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Singapore\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Singapore\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sierra Leone\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SierraLeone\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SierraLeone\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"El Salvador\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"ElSalvador\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"ElSalvador\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Serbia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Serbia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Serbia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sweden\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Sweden\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Sweden\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Syria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Syria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Syria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Chad\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Chad\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Chad\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Togo\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Togo\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Togo\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Thailand\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Thailand\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Thailand\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Tunisia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Tunisia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Tunisia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Turkey\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Turkey\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Turkey\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Taiwan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Taiwan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Taiwan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Tanzania\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Tanzania\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Tanzania\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Uganda\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Uganda\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Uganda\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Uruguay\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Uruguay\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Uruguay\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"United States\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"UnitedStates\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"UnitedStates\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Venezuela\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Venezuela\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Venezuela\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Vietnam\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Vietnam\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Vietnam\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Yemen\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Yemen\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Yemen\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"South Africa\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SouthAfrica\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SouthAfrica\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Zambia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Zambia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Zambia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Zimbabwe\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Zimbabwe\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Zimbabwe\\\"]\"","\"country\""},
    "Entity"]}], "}"}]], "Output",
 CellChangeTimes->{3.7855815526426263`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"2ddcbaa9-dde3-4f3e-86a7-a92fce667fd5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"countries", "=", 
   RowBox[{"{", 
    RowBox[{
     TemplateBox[{"\"Argentina\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Argentina\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Argentina\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Australia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Austria\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Austria\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Austria\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Burundi\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Burundi\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Burundi\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Belgium\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Belgium\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Belgium\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Benin\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Benin\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Benin\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Burkina Faso\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"BurkinaFaso\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"BurkinaFaso\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Bangladesh\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Bangladesh\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Bangladesh\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Bulgaria\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Bulgaria\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Bulgaria\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Bosnia and Herzegovina\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"BosniaHerzegovina\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"BosniaHerzegovina\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Bolivia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Bolivia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Bolivia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Brazil\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Brazil\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Brazil\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Central African Republic\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"CentralAfricanRepublic\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"CentralAfricanRepublic\\\"]\"",
       "\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Canada\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Canada\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Canada\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Switzerland\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Switzerland\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Switzerland\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Chile\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Chile\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Chile\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"China\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"China\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"China\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Ivory Coast\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"IvoryCoast\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"IvoryCoast\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Cameroon\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Cameroon\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Cameroon\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{
      "\"Democratic Republic of the Congo\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"DemocraticRepublicCongo\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"DemocraticRepublicCongo\\\"]\"",
       "\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Republic of the Congo\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"RepublicCongo\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"RepublicCongo\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Colombia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Colombia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Colombia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Costa Rica\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"CostaRica\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"CostaRica\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Germany\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Denmark\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Denmark\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Denmark\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Dominican Republic\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"DominicanRepublic\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"DominicanRepublic\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Algeria\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Algeria\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Algeria\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Ecuador\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Ecuador\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Ecuador\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Egypt\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Egypt\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Egypt\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Spain\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Spain\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Spain\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Ethiopia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Ethiopia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Ethiopia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Finland\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Finland\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Finland\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"France\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"France\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"France\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"United Kingdom\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"UnitedKingdom\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"UnitedKingdom\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Ghana\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Ghana\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Ghana\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Guinea\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Guinea\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Guinea\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Greece\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Greece\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Greece\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Guatemala\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Guatemala\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Guatemala\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Hong Kong\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"HongKong\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"HongKong\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Honduras\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Honduras\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Honduras\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Croatia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Croatia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Croatia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Haiti\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Haiti\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Haiti\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Hungary\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Hungary\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Hungary\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Indonesia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Indonesia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Indonesia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"India\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"India\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"India\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Ireland\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Ireland\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Ireland\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Iran\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Iran\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Iran\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Iraq\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Iraq\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Iraq\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Israel\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Israel\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Israel\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Italy\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Italy\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Italy\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Jordan\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Jordan\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Jordan\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Japan\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Japan\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Japan\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Kenya\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Kenya\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Kenya\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Cambodia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Cambodia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Cambodia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"South Korea\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"SouthKorea\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"SouthKorea\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Laos\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Laos\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Laos\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Lebanon\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Lebanon\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Lebanon\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Liberia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Liberia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Liberia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Sri Lanka\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"SriLanka\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"SriLanka\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Morocco\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Morocco\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Morocco\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Madagascar\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Madagascar\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Madagascar\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Mexico\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Mexico\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Mexico\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Mali\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Mali\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Mali\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Myanmar\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Myanmar\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Myanmar\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Mongolia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Mongolia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Mongolia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Mozambique\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Mozambique\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Mozambique\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Mauritania\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Mauritania\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Mauritania\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Malawi\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Malawi\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Malawi\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Malaysia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Malaysia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Malaysia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Niger\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Niger\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Niger\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Nigeria\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Nigeria\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Nigeria\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Nicaragua\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Nicaragua\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Nicaragua\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Netherlands\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Netherlands\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Netherlands\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Norway\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Norway\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Norway\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Nepal\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Nepal\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Nepal\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"New Zealand\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"NewZealand\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"NewZealand\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Oman\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Oman\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Oman\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Pakistan\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Pakistan\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Pakistan\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Panama\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Panama\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Panama\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Peru\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Peru\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Peru\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Philippines\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Philippines\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Philippines\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Poland\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Portugal\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Portugal\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Portugal\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Paraguay\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Paraguay\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Paraguay\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"West Bank\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"WestBank\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"WestBank\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Romania\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Romania\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Romania\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Russia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Russia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Russia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Rwanda\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Rwanda\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Rwanda\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Saudi Arabia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"SaudiArabia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"SaudiArabia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Sudan\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Sudan\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Sudan\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Senegal\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Senegal\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Senegal\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Singapore\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Singapore\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Singapore\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Sierra Leone\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"SierraLeone\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"SierraLeone\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"El Salvador\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"ElSalvador\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"ElSalvador\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Serbia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Serbia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Serbia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Sweden\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Sweden\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Sweden\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Syria\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Syria\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Syria\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Chad\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Chad\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Chad\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Togo\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Togo\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Togo\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Thailand\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Thailand\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Thailand\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Tunisia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Tunisia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Tunisia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Turkey\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Turkey\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Turkey\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Taiwan\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Taiwan\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Taiwan\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Tanzania\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Tanzania\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Tanzania\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Uganda\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Uganda\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Uganda\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Uruguay\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Uruguay\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Uruguay\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"United States\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"UnitedStates\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"UnitedStates\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Venezuela\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Venezuela\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Venezuela\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Vietnam\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Vietnam\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Vietnam\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Yemen\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Yemen\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Yemen\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"South Africa\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"SouthAfrica\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"SouthAfrica\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Zambia\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Zambia\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Zambia\\\"]\"","\"country\""},
      "Entity"], ",", 
     TemplateBox[{"\"Zimbabwe\"",RowBox[{"Entity", "[", 
         RowBox[{"\"Country\"", ",", "\"Zimbabwe\""}], "]"}],
       "\"Entity[\\\"Country\\\", \\\"Zimbabwe\\\"]\"","\"country\""},
      "Entity"]}], "}"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.783074764051362*^9, 3.7830747641111994`*^9}, {
  3.783074794389205*^9, 3.7830748137534046`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"43ac39d9-7f50-448c-bd89-63100967697c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TemplateBox[{"\"Argentina\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Argentina\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Argentina\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Australia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Australia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Australia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Austria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Austria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Austria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Burundi\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Burundi\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Burundi\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Belgium\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Belgium\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Belgium\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Benin\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Benin\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Benin\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Burkina Faso\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"BurkinaFaso\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"BurkinaFaso\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bangladesh\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Bangladesh\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Bangladesh\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bulgaria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Bulgaria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Bulgaria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bosnia and Herzegovina\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"BosniaHerzegovina\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"BosniaHerzegovina\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Bolivia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Bolivia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Bolivia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Brazil\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Brazil\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Brazil\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Central African Republic\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"CentralAfricanRepublic\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"CentralAfricanRepublic\\\"]\"",
     "\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Canada\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Canada\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Canada\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Switzerland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Switzerland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Switzerland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Chile\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Chile\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Chile\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"China\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"China\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"China\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ivory Coast\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"IvoryCoast\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"IvoryCoast\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Cameroon\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Cameroon\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Cameroon\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Democratic Republic of the Congo\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"DemocraticRepublicCongo\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"DemocraticRepublicCongo\\\"]\"",
     "\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Republic of the Congo\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"RepublicCongo\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"RepublicCongo\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Colombia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Colombia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Colombia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Costa Rica\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"CostaRica\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"CostaRica\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Germany\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Germany\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Germany\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Denmark\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Denmark\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Denmark\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Dominican Republic\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"DominicanRepublic\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"DominicanRepublic\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Algeria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Algeria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Algeria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ecuador\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ecuador\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ecuador\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Egypt\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Egypt\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Egypt\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Spain\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Spain\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Spain\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ethiopia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ethiopia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ethiopia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Finland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Finland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Finland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"France\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"France\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"France\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"United Kingdom\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"UnitedKingdom\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"UnitedKingdom\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ghana\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ghana\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ghana\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Guinea\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Guinea\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Guinea\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Greece\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Greece\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Greece\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Guatemala\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Guatemala\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Guatemala\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Hong Kong\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"HongKong\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"HongKong\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Honduras\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Honduras\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Honduras\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Croatia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Croatia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Croatia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Haiti\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Haiti\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Haiti\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Hungary\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Hungary\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Hungary\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Indonesia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Indonesia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Indonesia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"India\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"India\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"India\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Ireland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Ireland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Ireland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Iran\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Iran\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Iran\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Iraq\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Iraq\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Iraq\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Israel\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Israel\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Israel\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Italy\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Italy\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Italy\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Jordan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Jordan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Jordan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Japan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Japan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Japan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Kenya\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Kenya\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Kenya\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Cambodia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Cambodia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Cambodia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"South Korea\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SouthKorea\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SouthKorea\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Laos\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Laos\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Laos\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Lebanon\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Lebanon\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Lebanon\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Liberia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Liberia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Liberia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sri Lanka\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SriLanka\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SriLanka\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Morocco\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Morocco\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Morocco\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Madagascar\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Madagascar\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Madagascar\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mexico\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mexico\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mexico\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mali\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mali\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mali\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Myanmar\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Myanmar\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Myanmar\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mongolia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mongolia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mongolia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mozambique\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mozambique\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mozambique\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Mauritania\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Mauritania\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Mauritania\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Malawi\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Malawi\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Malawi\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Malaysia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Malaysia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Malaysia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Niger\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Niger\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Niger\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Nigeria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Nigeria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Nigeria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Nicaragua\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Nicaragua\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Nicaragua\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Netherlands\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Netherlands\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Netherlands\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Norway\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Norway\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Norway\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Nepal\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Nepal\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Nepal\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"New Zealand\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"NewZealand\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"NewZealand\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Oman\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Oman\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Oman\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Pakistan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Pakistan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Pakistan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Panama\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Panama\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Panama\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Peru\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Peru\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Peru\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Philippines\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Philippines\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Philippines\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Poland\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Poland\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Poland\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Portugal\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Portugal\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Portugal\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Paraguay\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Paraguay\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Paraguay\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"West Bank\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"WestBank\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"WestBank\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Romania\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Romania\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Romania\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Russia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Russia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Russia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Rwanda\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Rwanda\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Rwanda\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Saudi Arabia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SaudiArabia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SaudiArabia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sudan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Sudan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Sudan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Senegal\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Senegal\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Senegal\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Singapore\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Singapore\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Singapore\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sierra Leone\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SierraLeone\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SierraLeone\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"El Salvador\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"ElSalvador\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"ElSalvador\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Serbia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Serbia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Serbia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Sweden\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Sweden\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Sweden\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Syria\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Syria\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Syria\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Chad\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Chad\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Chad\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Togo\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Togo\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Togo\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Thailand\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Thailand\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Thailand\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Tunisia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Tunisia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Tunisia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Turkey\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Turkey\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Turkey\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Taiwan\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Taiwan\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Taiwan\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Tanzania\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Tanzania\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Tanzania\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Uganda\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Uganda\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Uganda\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Uruguay\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Uruguay\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Uruguay\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"United States\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"UnitedStates\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"UnitedStates\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Venezuela\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Venezuela\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Venezuela\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Vietnam\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Vietnam\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Vietnam\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Yemen\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Yemen\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Yemen\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"South Africa\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"SouthAfrica\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"SouthAfrica\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Zambia\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Zambia\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Zambia\\\"]\"","\"country\""},
    "Entity"], ",", 
   TemplateBox[{"\"Zimbabwe\"",RowBox[{"Entity", "[", 
       RowBox[{"\"Country\"", ",", "\"Zimbabwe\""}], "]"}],
     "\"Entity[\\\"Country\\\", \\\"Zimbabwe\\\"]\"","\"country\""},
    "Entity"]}], "}"}]], "Output",
 CellChangeTimes->{3.783074820859395*^9, 3.785581569027938*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"ee69d4df-4960-4548-b753-02c11e38f31e"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7415925477231836`*^9, 
  3.7415925570595574`*^9}},ExpressionUUID->"1c9db80b-deab-4d7a-a456-\
9adc67ba0a99"],

Cell[BoxData[
 RowBox[{
  RowBox[{"distmat", "=", 
   RowBox[{"QuantityMagnitude", "[", 
    RowBox[{"GeoDistance", "[", 
     RowBox[{"countries", ",", "countries", ",", 
      RowBox[{"DistanceFunction", "\[Rule]", "\"\<Center\>\""}]}], "]"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.7393649785798564`*^9, {3.7393650848246784`*^9, 3.7393651043995953`*^9}, 
   3.7855813906530232`*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"24bf78f2-d032-4911-8854-6a9a735ce249"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<c:/dropbox/SCC/data/data_20191103/distmat.csv\>\"", ",", 
   RowBox[{"Transpose", "[", "distmat", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7393650949409304`*^9, 3.7393651572309055`*^9}, {
  3.7830748458295994`*^9, 3.783074851800627*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"b3c22853-3201-4d6d-895b-ee754419c5e2"],

Cell[BoxData["\<\"c:/dropbox/SCC/data/data_20191103/distmat.csv\"\>"], \
"Output",
 CellChangeTimes->{3.7393694932015247`*^9, 3.739369534930418*^9, 
  3.783074893386384*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"274bc616-c245-4e12-ace2-e75eff3192ff"]
}, Open  ]]
},
WindowSize->{2560, 1386},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 858, 20, 97, "Input",ExpressionUUID->"10505e8a-6297-4063-9e55-6c96970e080b"],
Cell[1441, 44, 2733, 43, 183, "Output",ExpressionUUID->"e98c3da7-937a-4c08-b61a-450e2f5e501e"],
Cell[4177, 89, 2707, 43, 183, "Output",ExpressionUUID->"983d9c94-1aa8-449e-8616-bbd7fcab1a96"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6921, 137, 543, 13, 57, "Input",ExpressionUUID->"d2561998-d0b3-459a-8cb4-e7e8edca448f"],
Cell[7467, 152, 37249, 756, 691, "Output",ExpressionUUID->"2ddcbaa9-dde3-4f3e-86a7-a92fce667fd5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44753, 913, 24342, 462, 1024, "Input",ExpressionUUID->"43ac39d9-7f50-448c-bd89-63100967697c"],
Cell[69098, 1377, 23303, 458, 504, "Output",ExpressionUUID->"ee69d4df-4960-4548-b753-02c11e38f31e"]
}, Open  ]],
Cell[92416, 1838, 156, 3, 57, "Input",ExpressionUUID->"1c9db80b-deab-4d7a-a456-9adc67ba0a99"],
Cell[92575, 1843, 479, 11, 114, "Input",ExpressionUUID->"24bf78f2-d032-4911-8854-6a9a735ce249"],
Cell[CellGroupData[{
Cell[93079, 1858, 376, 6, 57, "Input",ExpressionUUID->"b3c22853-3201-4d6d-895b-ee754419c5e2"],
Cell[93458, 1866, 251, 4, 65, "Output",ExpressionUUID->"274bc616-c245-4e12-ace2-e75eff3192ff"]
}, Open  ]]
}
]
*)

